home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Graphics / Ultraconv / Rexx / SingleMultiply < prev    next >
Text File  |  1997-08-07  |  2KB  |  47 lines
  1. /* SingleMultiply ©1997 by Felix Schwarz
  2.    This small script makes up to 99999 pictures
  3.    out of one and gives over all pictures to UConv.
  4.    This is useful, if you want to make moved light
  5.    sources on a permanent backdrop in FULL 24bit depth
  6.    (you no more need to do multiplying in DPaint or PPaint..)
  7.    You can use parts of this Rexx-script in your own scripts.
  8.  */
  9.  
  10.     options results
  11.     address 'UConv'
  12.     cachepath="UConv:Work2/"
  13.     GETASLFILE "Which_pic_shall_be_multiplied_?" "Ultraconvlogo.brsh"
  14.     file=result
  15.     IF EXISTS(file)=1 THEN DO
  16.      BLOCKMAINGUI ON
  17.      FIRSTINFILE file
  18.      OUTFORMAT 14
  19.      FIRSTOUTFILE cachepath||"Multi.ppm.00001"
  20.      SCALEREQ OFF NOGUI
  21.      ROTATEREQ OFF NOGUI
  22.      DITHERREQ OFF NOGUI
  23.      FILTERREQ OFF NOGUI
  24.      ANIMFXREQ OFF NOGUI
  25.      ANIMPUBREQ OFF NOGUI
  26.      CONVERT
  27.      BLOCKMAINGUI ON
  28.      FIRSTOUTFILE ""
  29.      OUTFORMAT 1
  30.      STRINGREQUESTER "How_many_frames_shall_be_created_?" "Ok!" "Cancel" "Enter number of frames:"
  31.      num=result
  32.      OPENPROGRESSBAR 1 "Working.."
  33.      SETPROGRESSBAR 1 0 "Working.."
  34.      DO i=2 to num
  35.       FORMATTEDNUM i "00000"
  36.       address command 'copy '||cachepath||'Multi.ppm.00001 '||cachepath||'Multi.ppm.'||result
  37.       SETPROGRESSBAR 1 (i/num)*100 "Working.."
  38.      END
  39.      FIRSTINFILE cachepath||'Multi.ppm.00001'
  40.      FORMATTEDNUM num '00000'
  41.      LASTINFILE cachepath||'Multi.ppm.'||result
  42.      CLOSEPROGRESSBAR 1
  43.      BLOCKMAINGUI OFF
  44.     END
  45.     ELSE REQUESTER "Error" "OK!" "The picture doesn`t exist!"
  46.     EXIT
  47.